home *** CD-ROM | disk | FTP | other *** search
/ Cine Live 72 / Cine Live 72.iso / pc / Data / Interface / e1s.k < prev    next >
Encoding:
Text File  |  2003-09-04  |  6.6 KB  |  279 lines
  1. module oRoot1 is cBox
  2. with 
  3.     Flags is $00000152; 
  4.     release Editor:
  5.         IOWindow is {$00000191,$000000AD,$000001DA,$0000029A,$00000000,$00000000,$00000000,$00000000};
  6.         LayoutWindow is {$000000A1,$0000007B,$000002A0,$00000245,$00000000,$00000000,$00000064,$00000000};
  7.     end;
  8.     Name is "Root"; 
  9.     Enabled is false; 
  10.     
  11.     Width is 800; Height is 600; 
  12.     
  13.     Kind is DrawOpaque; 
  14.     Elements is [
  15.         oslide2,
  16.         oslide23,
  17.         oslide34,
  18.         oslide45
  19.     ];
  20.     Events is [
  21.         cOnscreenEvent
  22.         with Flags is $00000004; 
  23.             Commands is [
  24.                 cShowCommand
  25.                 with Flags is $00000004; Target is oslide2; end,
  26.                 cEnableCommand
  27.                 with Flags is $00000004; Target is oslide2; end,
  28.                 cFocusCommand
  29.                 with Target is oslide2; end,
  30.                 cRunCommand
  31.                 with Flags is $00000004; Target is oslide2; Rewind is true; end
  32.             ];
  33.         end
  34.     ];
  35. end;
  36.  
  37. object oslide2 is cImage
  38. with 
  39.     Name is "slide"; 
  40.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  41.     
  42.     Width is 800; Height is 600; 
  43.     Duration is 2; Duration is 2; TimeScale is 1; 
  44.     URL is "../../Photos/Bad%20Boys%202/AFF%20Bad%20Boys%202.jpg"; 
  45.     
  46.     
  47.     Events is [
  48.         cKeyboardEvent
  49.         with Test is IsSpace; 
  50.             Commands is [
  51.                 cFocusCommand
  52.                 with Target is oTargetSelf; end,
  53.                 cRunCommand
  54.                 with Target is oTargetSelf; Mode is Toggle; end
  55.             ];
  56.         end,
  57.         cMouseUpEvent
  58.         with Flag is true; 
  59.             Commands is [
  60.                 cRunCommand
  61.                 with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  62.                 cEnableCommand
  63.                 with Target is oTargetSelf; Mode is Clear; end,
  64.                 cShowCommand
  65.                 with Target is oTargetSelf; Mode is Clear; end,
  66.                 cRunCommand
  67.                 with Target is oslide23; Mode is Clear; Rewind is true; end,
  68.                 cEnableCommand
  69.                 with Target is oslide23; Mode is Clear; end,
  70.                 cShowCommand
  71.                 with Target is oslide23; Mode is Clear; end,
  72.                 cBackCommand
  73.                 with end
  74.             ];
  75.         end,
  76.         cFinishedEvent
  77.         with 
  78.             Commands is [
  79.                 cShowCommand
  80.                 with Target is oslide2; Mode is Clear; end,
  81.                 cEnableCommand
  82.                 with Target is oslide2; Mode is Clear; end,
  83.                 cRunCommand
  84.                 with Target is oslide2; Mode is Clear; Rewind is true; end,
  85.                 cFocusCommand
  86.                 with Target is oslide23; end,
  87.                 cShowCommand
  88.                 with Target is oslide23; end,
  89.                 cEnableCommand
  90.                 with Target is oslide23; end,
  91.                 cRunCommand
  92.                 with Target is oslide23; Rewind is true; end
  93.             ];
  94.         end
  95.     ];
  96. end;
  97.  
  98. object oslide23 is cImage
  99. with 
  100.     Name is "slide2"; 
  101.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  102.     
  103.     Width is 800; Height is 600; 
  104.     Duration is 2; Duration is 2; TimeScale is 1; 
  105.     URL is "../../Photos/Bad%20Boys%202/M%20Bay.jpg"; 
  106.     
  107.     
  108.     Events is [
  109.         cKeyboardEvent
  110.         with Test is IsSpace; 
  111.             Commands is [
  112.                 cFocusCommand
  113.                 with Target is oTargetSelf; end,
  114.                 cRunCommand
  115.                 with Target is oTargetSelf; Mode is Toggle; end
  116.             ];
  117.         end,
  118.         cMouseUpEvent
  119.         with Flag is true; 
  120.             Commands is [
  121.                 cEnableCommand
  122.                 with Target is oTargetSelf; Mode is Clear; end,
  123.                 cShowCommand
  124.                 with Target is oTargetSelf; Mode is Clear; end,
  125.                 cRunCommand
  126.                 with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  127.                 cEnableCommand
  128.                 with Target is oslide34; Mode is Clear; end,
  129.                 cShowCommand
  130.                 with Target is oslide34; Mode is Clear; end,
  131.                 cRunCommand
  132.                 with Target is oslide34; Mode is Clear; Rewind is true; end,
  133.                 cBackCommand
  134.                 with end
  135.             ];
  136.         end,
  137.         cFinishedEvent
  138.         with 
  139.             Commands is [
  140.                 cShowCommand
  141.                 with Target is oslide23; Mode is Clear; end,
  142.                 cEnableCommand
  143.                 with Target is oslide23; Mode is Clear; end,
  144.                 cRunCommand
  145.                 with Target is oslide23; Mode is Clear; Rewind is true; end,
  146.                 cFocusCommand
  147.                 with Target is oslide34; end,
  148.                 cShowCommand
  149.                 with Target is oslide34; end,
  150.                 cEnableCommand
  151.                 with Target is oslide34; end,
  152.                 cRunCommand
  153.                 with Target is oslide34; Rewind is true; end
  154.             ];
  155.         end
  156.     ];
  157. end;
  158.  
  159. object oslide34 is cImage
  160. with 
  161.     Name is "slide3"; 
  162.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  163.     
  164.     Width is 800; Height is 600; 
  165.     Duration is 2; Duration is 2; TimeScale is 1; 
  166.     URL is "../../Photos/Bad%20Boys%202/M%20Lawrence.jpg"; 
  167.     
  168.     
  169.     Events is [
  170.         cKeyboardEvent
  171.         with Test is IsSpace; 
  172.             Commands is [
  173.                 cFocusCommand
  174.                 with Target is oTargetSelf; end,
  175.                 cRunCommand
  176.                 with Target is oTargetSelf; Mode is Toggle; end
  177.             ];
  178.         end,
  179.         cMouseUpEvent
  180.         with Flag is true; 
  181.             Commands is [
  182.                 cEnableCommand
  183.                 with Target is oTargetSelf; Mode is Clear; end,
  184.                 cShowCommand
  185.                 with Target is oTargetSelf; Mode is Clear; end,
  186.                 cRunCommand
  187.                 with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  188.                 cEnableCommand
  189.                 with Target is oslide45; Mode is Clear; end,
  190.                 cShowCommand
  191.                 with Target is oslide45; Mode is Clear; end,
  192.                 cRunCommand
  193.                 with Target is oslide45; Mode is Clear; Rewind is true; end,
  194.                 cBackCommand
  195.                 with end
  196.             ];
  197.         end,
  198.         cFinishedEvent
  199.         with 
  200.             Commands is [
  201.                 cShowCommand
  202.                 with Target is oslide34; Mode is Clear; end,
  203.                 cEnableCommand
  204.                 with Target is oslide34; Mode is Clear; end,
  205.                 cRunCommand
  206.                 with Target is oslide34; Mode is Clear; Rewind is true; end,
  207.                 cFocusCommand
  208.                 with Target is oslide45; end,
  209.                 cShowCommand
  210.                 with Target is oslide45; end,
  211.                 cEnableCommand
  212.                 with Target is oslide45; end,
  213.                 cRunCommand
  214.                 with Target is oslide45; Rewind is true; end
  215.             ];
  216.         end
  217.     ];
  218. end;
  219.  
  220. object oslide45 is cImage
  221. with 
  222.     Name is "slide4"; 
  223.     Enabled is false; Shown is false; Cursor is oEmptyCursor; 
  224.     
  225.     Width is 800; Height is 600; 
  226.     Duration is 2; Duration is 2; TimeScale is 1; 
  227.     URL is "../../Photos/Bad%20Boys%202/W%20Smith.jpg"; 
  228.     
  229.     
  230.     Events is [
  231.         cKeyboardEvent
  232.         with Test is IsSpace; 
  233.             Commands is [
  234.                 cFocusCommand
  235.                 with Target is oTargetSelf; end,
  236.                 cRunCommand
  237.                 with Target is oTargetSelf; Mode is Toggle; end
  238.             ];
  239.         end,
  240.         cMouseUpEvent
  241.         with Flag is true; 
  242.             Commands is [
  243.                 cEnableCommand
  244.                 with Target is oTargetSelf; Mode is Clear; end,
  245.                 cShowCommand
  246.                 with Target is oTargetSelf; Mode is Clear; end,
  247.                 cRunCommand
  248.                 with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
  249.                 cEnableCommand
  250.                 with Target is oslide2; Mode is Clear; end,
  251.                 cShowCommand
  252.                 with Target is oslide2; Mode is Clear; end,
  253.                 cRunCommand
  254.                 with Target is oslide2; Mode is Clear; Rewind is true; end,
  255.                 cBackCommand
  256.                 with end
  257.             ];
  258.         end,
  259.         cFinishedEvent
  260.         with 
  261.             Commands is [
  262.                 cShowCommand
  263.                 with Target is oslide45; Mode is Clear; end,
  264.                 cEnableCommand
  265.                 with Target is oslide45; Mode is Clear; end,
  266.                 cRunCommand
  267.                 with Target is oslide45; Mode is Clear; Rewind is true; end,
  268.                 cFocusCommand
  269.                 with Target is oslide2; end,
  270.                 cShowCommand
  271.                 with Target is oslide2; end,
  272.                 cEnableCommand
  273.                 with Target is oslide2; end,
  274.                 cRunCommand
  275.                 with Target is oslide2; Rewind is true; end
  276.             ];
  277.         end
  278.     ];
  279. end;